Міністерство освіти та науки України
Національний університет „Львівська політехніка”
АЛГОРИТМІЧНА МОВА ПРОГРАМУВАННЯ Сі
ПРОСТІ ПРОГРАМИ ЛІНІЙНОЇ СТРУКТУРИ
Звіт
до лабораторної роботи №2 15-варівнт
З КУРСУ “ Комп’ютерна графіка ”
Львів-2005
Мета роботи - набути практичних навиків в складанні програм для побудови графіків функ-цій за допомогою засобів мови Турбо Паскаль.
.
Завдання:
N% п/п
Функція
Інтервал
Крок
15
t=[-100;100]
h=0.5
Блок-схема програми
Процедура Bild_x0y0
Пояснення до блок-схеми процедури Bild_x0y0
№
Опис блока
1)
Умовний оператор, що перевіряє чи аргумент проходить через 0
2)
Присвоєння координат Х00 машинного значення мінімального елемента
3)
Умовний оператор, що перевіряє чи максимальний елемент більше 0
4)
Присвоєння Х00 значення крайньої лівої точки
5)
Присвоєння Х00 значення крайньої правої точки
6)
Побудова лінії осі координат Х по заданих точках
7)
Умовний оператор, що перевіряє чи аргумент проходить через 0
8)
Присвоєння координат y00 машинного значення мінімального елемента
9)
Умовний оператор, що перевіряє чи максимальний елемент більше 0
10)
Присвоєння y00 значення крайньої нижньої точки
11)
Присвоєння y00 значення крайньої верхньої точки
12)
Побудова лінії осі координат У по заданих точках
13)
Умовний оператор, що перевіряє чи максимальний елемент більше 0
14)
Присвоєння значень стрілок
15)
Присвоєння значень стрілок
16)
Умовний оператор, що перевіряє чи максимальний елемент більше 0
17)
Присвоєння значень стрілок
18)
Присвоєння значень стрілок
19)
Побудова стрілок по осі У
20)
Побудова стрілок по осі Х
21)
Покроковий цикл For
22)
Побудова засічок на осі Х
23)
Перехід від машинних до реальних координат
24)
Приведення строки з значенням Х до менших розмірів
25)
Оцифровка значень по осі Х
26)
Покроковий цикл For
27)
Побудова засічок на осі У
28)
Перехід від машинних до реальних координат
29)
Приведення строки з значенням У до менших розмірів
30)
Оцифровка значень по осі У
Лістинг:
Program graf_madel;
uses crt, graph;
Var
a,b,t,hi,x_max,y_max,x_min,y_min,x_zoom, y_zoom,x0,y0,x,y, x_begin,x_end:real;
i,x1,y1,x2,y2,h,w:integer;
{---------------graph_install--------------------}
Procedure graph_install;
var driver, regim, error: integer;
begin
Clrscr;
driver:=detect;
initgraph(driver, regim, '');
error:=graphResult;
End;
{------------------------------------------------}
Function x_t(xt:real):real;
Begin
X_t:=cos(xt)*xt;
end;
Function y_t(yt:real):real;
Begin
y_t:=(yt);
end;
{---------------bild_x0y0-------------}
procedure bild_x0y0;
VAR x00,y00, X_strilku_x, x_strilku_y, y_strilku_x, y_strilku_y,
ds_x_x, ds_x_y, ds_y_x, ds_y_y, Text_x, texT_y:integer;
st:string;
begin
setcolor(8);
if x_max*x_min<0 then X00:=trunc(x_zoom*(0-x_min))+20
else
begin
if x_max>0 then X00:=trunc(0)+20
else X00:=trunc(H)+20
end;
line(x00,W+30,x00,0) ;
if y_min*y_max<0 then y00:=w-trunc(y_zoom*(-y_min))+15
else
begin
if y_max>0 then y00:=w+15
else y00:=trunc(0)+15
end;
line(0,y00,h+40,y00);
if x_max>0 then
begin
x_strilku_x:=H+40; x_strilku_y:=y00;
ds_x_x:=-12; ds_x_y:=4;
end
else
begin
x_strilku_x:=0; x_strilku_y:=y00;
ds_x_x:=12; ds_x_y:=4;
end;
if y_max>0 then
begin
Y_strilku_x:=x00; y_strilku_y:=0;
ds_y_x:=4; ds_y_y:=12;
end
else
begin
Y_strilku_x:=x00; y_strilku_y:=w+30;
ds_y_x:=4; ds_y_y:=-12;
end;
line(X_strilku_x,x_strilku_y,X_strilku_x+ds_x_x,x_strilku_y-ds_x_y);
line(X_strilku_x,x_strilku_y,X_strilku_x+ds_x_x,x_strilku_y+ds_x_y);
line(y_strilku_x,y_strilku_y,y_strilku_x-ds_y_x,y_strilku_y+ds_y_y);
line(y_strilku_x,y_strilku_y,y_strilku_x+ds_y_x,y_strilku_y+ds_y_y);
if x_strilku_y=H+20 then ds_x_y:=12 else ds_x_y:=-12;
if y_strilku_x<W+15 then ds_y_x:=-10 else ds_y_x:=10;
settextstyle(1,0,0);
OutTextXY(x_strilku_x+ds_x_x, x_strilku_y+ds_x_y, 'x');
settextstyle(1,1,0);
OutTextXY(y_strilku...
